From: Po Lu <luangruo@yahoo.com>
Date: Sat, 30 Mar 2024 00:58:59 +0000 (+0800)
Subject: Fix building the SFNT font driver
X-Git-Tag: archive/raspbian/1%30.1+1-3+rpi1^2~14^2~18^2~2102
X-Git-Url: https://dgit.raspbian.org/%22http://www.example.com/cgi/%22/%22http:/www.example.com/cgi/%22?a=commitdiff_plain;h=bfbddf65245e179ef25c3b9b2699515b2d33ecca;p=emacs.git

Fix building the SFNT font driver

* src/sfntfont.c (sfntfont_list, sfntfont_list_family): Update
calls to Fsort for the new calling convention.
---

diff --git a/src/sfntfont.c b/src/sfntfont.c
index 3be770f650e..fb3feaeaf79 100644
--- a/src/sfntfont.c
+++ b/src/sfntfont.c
@@ -2029,7 +2029,7 @@ sfntfont_list (struct frame *f, Lisp_Object font_spec)
      caller) ordered first.  */
 
   XSETSUBR (compare_font_entities, &Scompare_font_entities.s);
-  matching = Fsort (matching, compare_font_entities);
+  matching = CALLN (Fsort, matching, compare_font_entities);
   return matching;
 }
 
@@ -3779,7 +3779,7 @@ sfntfont_list_family (struct frame *f)
     families = Fcons (desc->family, families);
 
   /* Sort families in preparation for removing duplicates.  */
-  families = Fsort (families, Qstring_lessp);
+  families = CALLN (Fsort, families, Qstring_lessp);
 
   /* Remove each duplicate within families.  */